Alpha CD-ROM Bonus Pack/Alpha CD-ROM Bonus Pack.iso/life/shared.dir/00509_FramePauseScripts .ls

Text File | 1995-01-16 | 608 b | 30 lines

on pauseHere delayTicks
  set startTicks to the ticks
  repeat while (the ticks - startTicks) <= delayTicks
    nothing()
  end repeat
end

on framePauseInit
  global gTimedOut, gDelaySetting
  set gTimedOut to 1
  set gDelaySetting to 0
end

on framePause delayTime
  global gTimedOut, gDelaySetting, gStartTime
  if gTimedOut then
    set gStartTime to the ticks
    set gTimedOut to 0
    set gDelaySetting to delayTime * 60
    return 0
  else
    if (the ticks - gStartTime) >= gDelaySetting then
      set gTimedOut to 1
      set gDelaySetting to 0
      return 1
    end if
    return 0
  end if
end